' test N = 5, 11, 12, 10  B+ test If blocks, bools, arith 2021-02-09
N = trim[9]
loopCnt = 0
If lt[N,10]
	[
		loopCnt = trim[a[loopCnt,1]]
		If gt[loopCnt,N]
			Exit
		El
			; loopCnt;spc[1]; 
		Fi
	]
	.
	.
El
	NSqr = trim[x[N,N]]
	. N; squared = ;NSqr ;.
Fi
.    N = ; N ;.